home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 195 / 195.d81 / b.font chart (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  152 lines
  1. 10 poke53281,0:poke53280,0
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 30 print"[147]"
  4. 50 d=4
  5. 60 print"    [129][212][200][197] [205][201][199][200][212][217] [204][207][193][196][211][212][193][210] [198][207][206][212] [195][200][193][210][212][197][210]
  6. 62 [153]"  chr$et your printer ready and press
  7. 64 print" [211][208][193][195][197] to print out a chart of the 256
  8. 66 [153]" font characters in print(NULL)len(NULL)valval(NULL) len(NULL)str$val order.
  9. 68 print"  [212]he top character in each 'box' shows
  10. 70 [153]" what you'll get by pressing the key
  11. 72 print" combination directly below it.
  12. 74 [153]"  (NULL)he top two tables are for the upper-
  13. 76 print" lowercase font. [212]he bottom two are for
  14. 78 [153]" the uppercase-graphics font.
  15. 82 print"  [153][211]- means [211][200][201][198][212]. [153][195]- means the [195]= key.
  16. 84 [153]"   (NULL)(NULL)atnlenvalcont - (NULL)rint the lenhart (one sheet)
  17. 86 print"       [204][154] - [210]eturn to [204][207][193][196][211][212][193][210]
  18. 88 [151]198,0
  19. 90 [161]a$:[139]a$[178]""[167]90
  20. 92 [139]a$[178]" "[167]100
  21. 94 [139]a$[178]"l"[167]40000
  22. 96 [137]90
  23. 100 tp$[178]"ortantantan=tantantan=tantantan=tantantan=tantantan=tantantan=tantantan=tantantan=tantantan=tantantan=tantantan=tantantan=tantantan=tantantan=tantantan=tantantan^
  24. 110 md$="[171][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][179]
  25. 120 bt$[178]"/tantantan>tantantan>tantantan>tantantan>tantantan>tantantan>tantantan>tantantan>tantantan>tantantan>tantantan>tantantan>tantantan>tantantan>tantantan>tantantanexp
  26. 130 bl$="[221]   [221]   [221]   [221]   [221]   [221]   [221]   [221]   [221]   [221]   [221]   [221]   [221]   [221]   [221]   [221]   [221]
  27. 140 t$[178]"        "
  28. 200 [159]4,d,7
  29. 202 [152]4,[199](27)[199](65)[199](7):[143] set line spacing to 7/72 inch
  30. 210 [152]4,t$tp$
  31. 212 [152]4,t$bl$
  32. 220 [152]4,t$"(NULL) @ (NULL) a (NULL) b (NULL) c (NULL) d (NULL) e (NULL) f (NULL) g (NULL) h (NULL) i (NULL) j (NULL) k (NULL) l (NULL) m (NULL) n (NULL) o (NULL)
  33. 222 print#4,t$bl$
  34. 230 print#4,t$"[221] @ [221] [193] [221] [194] [221] [195] [221] [196] [221] [197] [221] [198] [221] [199] [221] [200] [221] [201] [221] [202] [221] [203] [221] [204] [221] [205] [221] [206] [221] [207] [221]
  35. 232 [152]4,t$bl$
  36. 240 [152]4,t$md$
  37. 242 [152]4,t$bl$
  38. 250 [152]4,t$"(NULL)(NULL)(NULL)len(NULL) ! (NULL) "[199](34)" (NULL) # (NULL) $ (NULL) % (NULL) & (NULL) ' (NULL) ( (NULL) ) (NULL) * (NULL)";
  39. 252 [152]4," + (NULL) , (NULL) - (NULL) . (NULL) / (NULL)"
  40. 254 [152]4,t$bl$
  41. 260 [152]4,t$"(NULL)(NULL)(NULL)len(NULL)(NULL)-1(NULL)(NULL)-2(NULL)(NULL)-3(NULL)(NULL)-4(NULL)(NULL)-5(NULL)(NULL)-6(NULL)(NULL)-7(NULL)(NULL)-8(NULL)(NULL)-9(NULL) * (NULL)";
  42. 262 [152]4," + (NULL) , (NULL) - (NULL) . (NULL) / (NULL)"
  43. 264 [152]4,t$bl$
  44. 270 [152]4,t$md$
  45. 272 [152]4,t$bl$
  46. 280 [152]4,t$"(NULL) tan (NULL) atn (NULL) peek (NULL) len (NULL) str$ (NULL) val (NULL) asc (NULL) chr$ (NULL) left$ (NULL) right$ (NULL) mid$ (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL)
  47. 282 print#4,t$bl$
  48. 290 print#4,t$"[221][211]-*[221][211]-[193][221][211]-[194][221][211]-[195][221][211]-[196][221][211]-[197][221][211]-[198][221][211]-[199][221][211]-[200][221][211]-[201][221][211]-[202][221][211]-[203][221][211]-[204][221][211]-[205][221][211]-[206][221][211]-[207][221]
  49. 292 [152]4,t$bl$
  50. 300 [152]4,t$md$
  51. 302 [152]4,t$bl$
  52. 310 [152]4,t$"(NULL)   (NULL) get (NULL) new (NULL) tab( (NULL) to (NULL) fn (NULL) spc( (NULL) then (NULL) not (NULL) step (NULL) + (NULL) - (NULL) * (NULL) / (NULL) ^ (NULL) and (NULL)
  53. 312 print#4,t$bl$
  54. 320 print#4,t$"[221][211][208][195][221][195]-[203][221][195]-[201][221][195]-[212][221][195]-@[221][195]-[199][221][195]-+[221][195]-[205][221][195]-\[221][211]-\[221][195]-[206][221][195]-[209][221][195]-[196][221][195]-[218][221][195]-[211][221][195]-[208][221]
  55. 322 [152]4,t$bl$
  56. 330 [152]4,t$bt$
  57. 340 [152]4:[152]4
  58. 400 [152]4,t$tp$
  59. 402 [152]4,t$bl$
  60. 410 [152]4,t$"(NULL) p (NULL) q (NULL) r (NULL) s (NULL) t (NULL) u (NULL) v (NULL) w (NULL) x (NULL) y (NULL) z (NULL) [ (NULL) \ (NULL) ] (NULL) ^ (NULL) _ (NULL)
  61. 412 print#4,t$bl$
  62. 420 print#4,t$"[221] [208] [221] [209] [221] [210] [221] [211] [221] [212] [221] [213] [221] [214] [221] [215] [221] [216] [221] [217] [221] [218] [221] [ [221] \ [221] ] [221] ^ [221] _ [221]
  63. 422 [152]4,t$bl$
  64. 430 [152]4,t$md$
  65. 432 [152]4,t$bl$
  66. 440 [152]4,t$"(NULL) 0 (NULL) 1 (NULL) 2 (NULL) 3 (NULL) 4 (NULL) 5 (NULL) 6 (NULL) 7 (NULL) 8 (NULL) 9 (NULL) : (NULL) ; (NULL) < (NULL) = (NULL) > (NULL) ? (NULL)
  67. 442 print#4,t$bl$
  68. 450 print#4,t$"[221] 0 [221] 1 [221] 2 [221] 3 [221] 4 [221] 5 [221] 6 [221] 7 [221] 8 [221] 9 [221] : [221] ; [221][211]-,[221] = [221][211]-.[221][211]-/[221]
  69. 452 [152]4,t$bl$
  70. 460 [152]4,t$md$
  71. 462 [152]4,t$bl$
  72. 470 [152]4,t$"(NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL)
  73. 472 print#4,t$bl$
  74. 480 print#4,t$"[221][211]-[208][221][211]-[209][221][211]-[210][221][211]-[211][221][211]-[212][221][211]-[213][221][211]-[214][221][211]-[215][221][211]-[216][221][211]-[217][221][211]-[218][221][211]-+[221][195]--[221][211]--[221][211]-^[221][195]-*[221]
  75. 482 [152]4,t$bl$
  76. 490 [152]4,t$md$
  77. 492 [152]4,t$bl$
  78. 500 [152]4,t$"(NULL) or (NULL) > (NULL) = (NULL) < (NULL) sgn (NULL) int (NULL) abs (NULL) usr (NULL) fre (NULL) pos (NULL) sqr (NULL) rnd (NULL) log (NULL) exp (NULL) cos (NULL) sin (NULL)
  79. 502 print#4,t$bl$
  80. 510 print#4,t$"[221][195]-[193][221][195]-[197][221][195]-[210][221][195]-[215][221][195]-[200][221][195]-[202][221][195]-[204][221][195]-[217][221][195]-[213][221][195]-[207][221][211]-@[221][195]-[198][221][195]-[195][221][195]-[216][221][195]-[214][221][195]-[194][221]
  81. 512 [152]4,t$bl$
  82. 520 [152]4,t$bt$
  83. 530 [152]4:[152]4
  84. 600 [160]4
  85. 602 [159]4,d,0
  86. 610 [152]4,t$tp$
  87. 612 [152]4,t$bl$
  88. 620 [152]4,t$"(NULL) @ (NULL) a (NULL) b (NULL) c (NULL) d (NULL) e (NULL) f (NULL) g (NULL) h (NULL) i (NULL) j (NULL) k (NULL) l (NULL) m (NULL) n (NULL) o (NULL)
  89. 622 print#4,t$bl$
  90. 630 print#4,t$"[221] @ [221] a [221] b [221] c [221] d [221] e [221] f [221] g [221] h [221] i [221] j [221] k [221] l [221] m [221] n [221] o [221]
  91. 632 [152]4,t$bl$
  92. 640 [152]4,t$md$
  93. 642 [152]4,t$bl$
  94. 650 [152]4,t$"(NULL)spc(NULL) ! (NULL) "[199](34)" (NULL) # (NULL) $ (NULL) % (NULL) & (NULL) ' (NULL) ( (NULL) ) (NULL) * (NULL)";
  95. 652 [152]4," + (NULL) , (NULL) - (NULL) . (NULL) / (NULL)"
  96. 654 [152]4,t$bl$
  97. 660 [152]4,t$"(NULL)spc(NULL)s-1(NULL)s-2(NULL)s-3(NULL)s-4(NULL)s-5(NULL)s-6(NULL)s-7(NULL)s-8(NULL)s-9(NULL) * (NULL)";
  98. 662 [152]4," + (NULL) , (NULL) - (NULL) . (NULL) / (NULL)"
  99. 664 [152]4,t$bl$
  100. 670 [152]4,t$md$
  101. 672 [152]4,t$bl$
  102. 680 [152]4,t$"(NULL) tan (NULL) atn (NULL) peek (NULL) len (NULL) str$ (NULL) val (NULL) asc (NULL) chr$ (NULL) left$ (NULL) right$ (NULL) mid$ (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL)
  103. 682 print#4,t$bl$
  104. 690 print#4,t$"[221]s-*[221]s-a[221]s-b[221]s-c[221]s-d[221]s-e[221]s-f[221]s-g[221]s-h[221]s-i[221]s-j[221]s-k[221]s-l[221]s-m[221]s-n[221]s-o[221]
  105. 692 [152]4,t$bl$
  106. 700 [152]4,t$md$
  107. 702 [152]4,t$bl$
  108. 710 [152]4,t$"(NULL)   (NULL) get (NULL) new (NULL) tab( (NULL) to (NULL) fn (NULL) spc( (NULL) then (NULL) not (NULL) step (NULL) + (NULL) - (NULL) * (NULL) / (NULL) ^ (NULL) and (NULL)
  109. 712 print#4,t$bl$
  110. 720 print#4,t$"[221]spc[221]c-k[221]c-i[221]c-t[221]c-@[221]c-g[221]c-+[221]c-m[221]c-\[221]s-\[221]c-n[221]c-q[221]c-d[221]c-z[221]c-s[221]c-p[221]
  111. 722 [152]4,t$bl$
  112. 730 [152]4,t$bt$
  113. 740 [152]4:[152]4
  114. 800 [152]4,t$tp$
  115. 802 [152]4,t$bl$
  116. 810 [152]4,t$"(NULL) p (NULL) q (NULL) r (NULL) s (NULL) t (NULL) u (NULL) v (NULL) w (NULL) x (NULL) y (NULL) z (NULL) [ (NULL) \ (NULL) ] (NULL) ^ (NULL) _ (NULL)
  117. 812 print#4,t$bl$
  118. 820 print#4,t$"[221] p [221] q [221] r [221] s [221] t [221] u [221] v [221] w [221] x [221] y [221] z [221] [ [221] \ [221] ] [221] ^ [221] _ [221]
  119. 822 [152]4,t$bl